home *** CD-ROM | disk | FTP | other *** search
/ Perfect Stranger Press Kit / Perfect Stranger Press Kit.iso / pc / resources / functions / download.exe / download.dxr / 00006_check FilePath.ls < prev    next >
Encoding:
Text File  |  2007-02-21  |  329 b   |  18 lines
  1. on convertFile aFileName
  2.   global gbPC
  3.   NewName = EMPTY
  4.   if gbPC then
  5.     repeat with i = 1 to aFileName.char.count
  6.       if aFileName.char[i] = ":" then
  7.         x = "\"
  8.       else
  9.         x = aFileName.char[i]
  10.       end if
  11.       NewName = NewName & x
  12.     end repeat
  13.     return NewName
  14.   else
  15.     return aFileName
  16.   end if
  17. end
  18.